home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINWORDS
/
WINE02BX.ZIP
/
LISP
/
EMULATOR
/
VI.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
38KB
|
361 lines
;;; compiled by jwz@thalidomide on Thu Jul 2 14:45:03 1992
;;; from file /u/jwz/emacs19/lisp/emulators/vi.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'vi-switch-mode #[(arg mode-char) "└ ┬!\"ë¼è┼É╞╟╚!!æ¬ì \n╦╠\"ê═╬ !)ç" [lookup-key vi-tilde-map char-to-string mode-char mode-cmd "*Help*" princ substitute-command-keys "Possible major modes to switch to: \\{vi-tilde-map}" arg prefix-arg command-execute nil set-buffer-modified-p buffer-modified-p] 5 "\
Switch the major mode of current buffer as specified by the following char \\{vi-tilde-map}" "P\nc"])
(byte-code "└┴┬ \"¼å├┼┴#ê└ç" [where-is-internal vi-switch-mode current-local-map define-key ctl-x-map "~"] 4)
(defvar vi-tilde-map nil "\
Keymap used for \\[vi-switch-mode] prefix key. Link to various major modes.")
(byte-code "¼∩┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╩#ê┬╦╠#ê┬═╬#ê┬╧╨#ê┬╤╥#ê┬╙╘#ê┬╒╓#ê┬╫╪#ê┬┘┌#ê┬█▄#ê┬▌▐#ê┬▀α#ê┬ßΓ#ê┬πΣ#ê┬σµ#ê┴ç" [vi-tilde-map make-keymap define-key "a" abbrev-mode "c" c-mode "d" vi-debugging "e" emacs-lisp-mode "f" auto-fill-mode "g" prolog-mode "h" hanoi "i" info-mode "l" lisp-mode "n" nroff-mode "o" overwrite-mode "O" outline-mode "P" picture-mode "r" vi-readonly-mode "t" text-mode "v" vi-mode "x" tex-mode "~" vi-back-to-old-mode] 4)
(fset 'vi-debugging #[(arg) "½ä┴¬â\n?\n½ä├─!ç├┼!ç" [arg t debug-on-error message "Debug-on-error ..." "NO more debug-on-error"] 2 "\
Toggle debug-on-error flag. If prefix arg is given, set t." "P"])
(fset 'vi-back-to-old-mode #[nil "¡É ├!ê╚╔ !ç" [vi-mode-old-major-mode vi-mode-old-mode-name mode-name use-local-map vi-mode-old-local-map major-mode vi-mode-old-case-fold case-fold-search set-buffer-modified-p buffer-modified-p] 2 "\
Go back to the previous mode without setting up for insertion." nil])
(fset 'vi-readonly-mode #[nil "?ëç" [buffer-read-only] 2 "\
Toggle current buffer's readonly flag." nil])
(defvar vi-com-map nil "\
Keymap used in Evi's command state
Command state includes most of the vi editing commands, with some Emacs
command extensions.")
(byte-code "└┴┬├#êäé┼ ╞╟╚#ê╞╔╩#ê╞╦╠#ê╞═╬#ê╞╧╨#ê╞╤╥#ê╞╙╘#ê╞╒╓#ê╞╫╪#ê╞┘┌#ê╞█▄#ê╞▌▐#ê╞▀α#ê╞ß┌#ê╞Γπ#ê╞Σσ#ê╞µτ#ê╞ΦΘ#ê╞Ωδ#ê╞∞φ#ê╞ε∩#ê╞≡±#ê╞≥≤#ê╞⌠⌡#ê╞÷≈#ê╞°∙#ê╞·√#ê╞ⁿ²#ê╞■ #ê╞ü@üA#ê╞üB┴#ê╞üCüD#ê╞üEüF#ê╞üGüH#ê╞üIüJ#ê╞üKüL#ê╞üMüN#ê╞üO²#ê╞üPüQ#ê╞üRüS#ê╞üTüU#ê╞üVüW#ê╞üXα#ê╞üYüZ#ê╞ü[ü\\#ê╞ü]ü^#ê╞ü_ü`#ê╞üaüb#ê╞ücüd#ê╞üeüd#ê╞üfüd#ê╞ügüd#ê╞ühüd#ê╞üiüd#ê╞üjüd#ê╞üküd#ê╞ülüd#ê╞ümün#ê╞üoüp#ê╞üqüF#ê╞ürüF#ê╞üsüF#ê╞ütüu#ê╞üvüw#ê╞üxüy#ê╞üzü{#ê╞ü|ü}#ê╞ü~▄#ê╞üüÇ#ê╞üüüé#ê╞üâüä#ê╞üàüå#ê╞üçüê#ê╞üëüè#ê╞üï┴#ê╞üîüì#ê╞üÄüÅ#ê╞üÉüæ#ê╞üÆüô#ê╞üöüò#ê╞üûüù#ê╞üÿüÖ#ê╞üÜü¢#ê╞ü£ü¥#ê╞ü₧²#ê╞üƒ┴#ê╞üáüí#ê╞üóüú#ê╞üñüÑ#ê╞üªüº #ê╞ü¿ü⌐#ê╞ü¬²#ê╞ü½üF#ê╞ü¼²#ê╞ü¡ü«#ê╞ü»┴#ê╞ü░ü▒#ê╞ü▓ü│#ê╞ü┤ü╡#ê╞ü╢üF#ê╞ü╖üF#ê╞ü╕ü╣#ê╞ü║ü╗#ê╞ü╝ü╜#ê╞ü╛ü┐#ê╞ü└ü┴#ê╞ü┬┌#ê╞ü├σ#ê╞ü─üD#ê╞ü┼ü╞#ê╞ü╟ü╚#ê╞ü╔ü╩#ê╞ü╦ü╠#ê╞ü═ü╬#ê╞ü╧ü╨#ê╞ü╤ü╥#ê╞ü╙ü╘#ê╞ü╒ü╓#ê╞ü╫ü╪#ê╞ü┘ü┌#ê╞ü█ü▄#ê╞ü▌üF#ê╞ü▐ü▀#ê╞üαüß#ê╞üΓüπ#ê╞üΣüσ#ê╞üµüτ#ê╞üΦüΘ#ê└ü┐üΩüδ#ê└┌üΩü∞#ê└üφüΩü∞#ê└üεüΩü∞#ê└σüΩü∞#ê└ΘüΩü∩#ê└üuüΩü∩#ê└δüΩü∩#ê└ü`üΩü∩#ê└üDüΩüδ#ê└üLüΩüδ#ê└üNüΩü≡#ê└üQüΩü∞#ê└üSüΩü±#ê└üUüΩü±#ê└αüΩü∞#ê└ü\\üΩü∞#ê└üZüΩü≥#ê└ü≤üΩü∩#ê└übüΩüδ#ê└ü╜üΩüδ#ê└üpüΩü⌠#ê└ü⌡üΩü∩#ê└ü{üΩü÷#ê└üÇüΩü≡#ê└üéüΩü⌠#ê└üäüΩü∞#ê└üåüΩü∞#ê└üìüΩü∞#ê└üÅüΩü∞#ê└üæüΩü≈#ê└ü¥üΩü⌠#ê└üíüΩü÷#ê└ü«üΩüδ#ê└ü▒üΩüδ#ê└ü╡üΩü°#ê└ü╣üΩü≡#ê└ü╗üΩü⌠#ê└ü┐üΩüδ#ê└ü∙üΩüδ#ê└ü╚üΩü∩#ê└ü╘üΩü⌠#ê└ü┌üΩü°#ê└üπüΩü≡#ê└üσüΩü·#ê└üßüΩü·#ê└ü√üΩüⁿ#ê└ü²üΩüⁿ#ê└ü■üΩüⁿ#ê└ü üΩüⁿ#ê└üüΩüⁿ#ê└üüΩüⁿ#ê└üüΩüⁿ#ê└üüΩüⁿ#ç" [put vi-undefined suppress-keymap t vi-com-map make-keymap define-key "" vi-mark-region "" vi-ask-for-info "" vi-backward-windowfull "" vi-do-old-mode-C-c-command "" vi-scroll-down-window "" vi-expose-line-below "" vi-forward-windowfull "" keyboard-quit " " indent-relative-maybe "\n" vi-next-line "" vi-kill-line "" recenter "" vi-next-line-first-nonwhite "" "" vi-split-open-line "" previous-line "" vi-query-replace "" vi-isearch-backward "" vi-isearch-forward "" vi-transpose-objects "" vi-scroll-up-window "" scroll-up "" vi-kill-region "" Control-X-prefix "" vi-expose-line-above "" suspend-emacs "" ESC-prefix "" vi-unimplemented "" find-tag "" vi-locate-def "" " " forward-char "!" vi-operator "\"" vi-char-argument "#" universal-argument "$" end-of-line "%" vi-find-matching-paren "&" "'" vi-goto-line-mark "(" backward-sexp ")" forward-sexp "*" vi-name-last-change-or-macro "+" "," vi-reverse-last-find-char "-" vi-previous-line-first-nonwhite "." vi-redo-last-change-command "/" vi-search-forward "0" beginning-of-line "1" vi-digit-argument "2" "3" "4" "5" "6" "7" "8" "9" ":" vi-ex-cmd ";" vi-repeat-last-find-char "<" "=" ">" "?" vi-search-backward "@" vi-call-named-change-or-macro "A" vi-append-at-end-of-line "B" vi-backward-blank-delimited-word "C" vi-change-rest-of-line "D" "E" vi-end-of-blank-delimited-word "F" vi-backward-find-char "G" vi-goto-line "H" vi-home-window-line "I" vi-insert-before-first-nonwhite "J" vi-join-lines "K" "L" vi-last-window-line "M" vi-middle-window-line "N" vi-reverse-last-search "O" vi-open-above "P" vi-put-before "Q" vi-quote-words "R" vi-replace-chars "S" vi-substitute-lines "T" vi-backward-upto-char "U" "V" "W" vi-forward-blank-delimited-word "X" call-last-kbd-macro "Y" vi-yank-line "Z" make-sparse-keymap "ZZ" vi-save-all-and-exit "[" "\\" "]" "^" back-to-indentation "_" "`" vi-goto-char-mark "a" vi-insert-after "b" backward-word "c" "d" "e" vi-end-of-word "f" vi-forward-find-char "g" vi-beginning-of-buffer "h" backward-char "i" vi-insert-before "j" "k" "l" "m" vi-set-mark "n" vi-repeat-last-search "o" vi-open-below "p" vi-put-after "q" vi-replace "r" vi-replace-1-char "s" vi-substitute-chars "t" vi-forward-upto-char "u" undo "v" vi-verify-spelling "w" vi-forward-word "x" vi-kill-char "y" "z" vi-adjust-window "{" backward-paragraph "|" vi-goto-column "}" forward-paragraph "~" vi-change-case "" delete-backward-char point-moving-unit char line next-line forward-line search match sexp rev-find vi-re-search-forward find vi-re-search-backward WORD rev-search word vi-forward-char paragraph mark-page region mark-paragraph mark-word mark-sexp mark-defun mark-whole-buffer mark-end-of-sentence mark-c-function] 4)
(defvar vi-mark-alist nil "\
Alist of (NAME . MARK), marks are local to each buffer.")
(defvar vi-scroll-amount (byte-code "└ ┴Ñç" [window-height 2] 2) "\
Default amount of lines for scrolling (used by " ^D "/" ^U ").")
(defvar vi-shift-width 4 "\
Shift amount for " < "/" > " operators.")
(defvar vi-ins-point nil "\
Last insertion point. Should use 'mark' instead.")
(defvar vi-ins-length nil "\
Length of last insertion.")
(defvar vi-ins-repetition nil "\
The repetition required for last insertion.")
(defvar vi-ins-overwrt-p nil "\
T if last insertion was a replace actually.")
(defvar vi-ins-prefix-code nil "\
Code to be eval'ed before (redo-)insertion begins.")
(defvar vi-last-find-char nil "\
Save last direction, char and upto-flag used for char finding.")
(defvar vi-last-change-command nil "\
Save commmands for redoing last changes. Each command is in (FUNC . ARGS)
form that is ready to be 'apply'ed.")
(defvar vi-last-shell-command nil "\
Save last shell command given for \"!\" operator.")
(defvar vi-insert-state nil "\
T if it is in insert state.")
(defvar vi-search-last-command nil "\
Save last search command for possible redo.")
(defvar vi-mode-old-local-map nil "\
Save the local-map used before entering vi-mode.")
(defvar vi-mode-old-mode-name nil "\
Save the mode-name before entering vi-mode.")
(defvar vi-mode-old-major-mode ni